Disc to the Future 2/Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin/MAC/THINKC/5/MACVOGL-/TEXT.C

C/C++ Source or Header | 1992-07-19 | 4KB | 261 lines

#include <stdio.h>

#ifdef PC
#include <string.h>
#else
#include <string.h>
#endif
#include "vogl.h"

static    double    c_x, c_y, c_z;    /* Current character position */

double    getcharwidth();

/*
 * font
 *     assigns a font.
 */
void
font(id)
    short    id;
{
    Token    *tok;

    if (!vdevice.initialised)
        verror("font: vogl not initialised");

    if (id < 0 || id >= vdevice.maxfontnum)
        verror("font: font number is out of range");

    if (vdevice.inobject) {
        tok = newtokens(2);
        tok[0].i = FONT;
        tok[1].i = id;
        return;
    }

    if (id == 1) {
        if (!(*vdevice.dev.Vfont)(vdevice.dev.large))
            verror("font: unable to open large font");
    } else if (id == 0) {
        if (!(*vdevice.dev.Vfont)(vdevice.dev.small))
            verror("font: unable to open small font");
    }

    vdevice.attr->a.fontnum = id;
}

/*
 * getcharwidth
 *
 *     Gets the width of one char on world coords.
 */
static double
getcharwidth()
{
    double           a, b, c, d;

    VtoWxy(vdevice.hwidth, vdevice.hheight, &c, &d);
    VtoWxy(0.0, 0.0, &a, &b);
    c -= a;
    return(c);
}

/*
 * charstr
 *
 * Draw a string from the current character position.
 *
 */
void
charstr(str)
    char     *str;
{
    double    cx, cy, cz;
    char    c;
    Token    *tok;
    int    oldclipoff = vdevice.clipoff;
    int    sl = strlen(str);

    if(!vdevice.initialised)
        verror("charstr: vogl not initialized");

    if (vdevice.inobject) {
        tok = newtokens(2 + strlen(str) / sizeof(Token));

        tok[0].i = DRAWSTR;
        strcpy((char *)&tok[1], str);

        return;
    }

    cx = vdevice.cpW[V_X];
    cy = vdevice.cpW[V_Y];
    cz = vdevice.cpW[V_Z];

    vdevice.clipoff = 1;    /* Forces update of device coords */
    move(c_x, c_y, c_z);    /* Updates device coords      */

    /*   If not clipping then simply display text and return  */

    if (oldclipoff) {
        (*vdevice.dev.Vstring)(str);
    } else { /* Check if string is within viewport */
        int    left_s = vdevice.cpVx;
        int    bottom_s = vdevice.cpVy - (int)vdevice.hheight;
        int    top_s = bottom_s + (int)vdevice.hheight;
        int    right_s = left_s + (int)((sl + 1) * vdevice.hwidth);

        if (left_s > vdevice.minVx &&
            bottom_s < vdevice.maxVy &&
            top_s > vdevice.minVy &&
            right_s < vdevice.maxVx) {
            (*vdevice.dev.Vstring)(str);
        } else {
            while (c = *str++) {
                if (vdevice.cpVx > vdevice.minVx &&
                    vdevice.cpVx < vdevice.maxVx - (int)vdevice.hwidth) {
                    (*vdevice.dev.Vchar)(c);
                }
                vdevice.cpVx += vdevice.hwidth;
            }
        }
    }

    c_x += getcharwidth() * sl;

    move(cx, cy, cz);
    vdevice.clipoff = oldclipoff;
}

/*
 * cmov
 *
 *    Sets the current character position.
 */
void
cmov(x, y, z)
    double    x, y, z;
{
    Token    *tok;

    if (vdevice.inobject) {
        tok = newtokens(4);

        tok[0].i = CMOV;
        tok[1].f = x;
        tok[2].f = y;
        tok[3].f = z;

        return;
    }

    c_x = x;
    c_y = y;
    c_z = z;
}


/*
 * cmov2
 *
 *    Sets the current character position. Ignores the Z coord.
 *
 *
 */
void
cmov2(x, y)
    double    x, y;
{
    c_x = x;
    c_y = y;
    c_z = 0.0;
}

/*
 * cmovi
 *
 *    Same as cmov but with integer arguments....
 */
void
cmovi(x, y, z)
    Icoord    x, y, z;
{
    c_x = (Coord)x;
    c_y = (Coord)y;
    c_z = (Coord)z;
}

/*
 * cmovs
 *
 *    Same as cmov but with short integer arguments....
 */
void
cmovs(x, y, z)
    Scoord    x, y, z;
{
    c_x = (Coord)x;
    c_y = (Coord)y;
    c_z = (Coord)z;
}

/*
 * cmov2i
 *
 *    Same as cmov2 but with integer arguments....
 */
void
cmov2i(x, y)
    Icoord    x, y;
{
    c_x = (Coord)x;
    c_y = (Coord)y;
    c_z = 0.0;
}

/*
 * cmov2s
 *
 *    Same as cmov but with short integer arguments....
 */
void
cmov2s(x, y)
    Scoord    x, y;
{
    c_x = (Coord)x;
    c_y = (Coord)y;
    c_z = 0.0;
}

/*
 * getwidth
 *
 * Return the maximum Width of the current font.
 *
 */
long
getwidth()
{
    if (!vdevice.initialised)
        verror("getwidth: vogl not initialised");


    return((long)vdevice.hwidth);
}

/*
 * getheight
 *
 * Return the maximum Height of the current font
 */
long
getheight()
{
    if (!vdevice.initialised)
        verror("getheight: vogl not initialized");

    return((long)vdevice.hheight);
}